Imports Leadtools
Imports Leadtools.Codecs
Imports Leadtools.ImageProcessing.SpecialEffects
Imports Leadtools.ImageProcessing.Effects
Public Sub FreeRadialBendConstructorExample()
Dim codecs As New RasterCodecs()
codecs.ThrowExceptionsOnInvalidImages = True
Dim leadImage As RasterImage = codecs.Load(Path.Combine(LEAD_VARS.ImagesDir, "Master.jpg"))
' Prepare the command
Dim userPoint() As LeadPoint
ReDim userPoint(3)
'Apply the filter
userPoint(0).X = 0
userPoint(0).Y = 0
userPoint(1).X = 3
userPoint(1).Y = 10
userPoint(2).X = 9
userPoint(2).Y = -10
userPoint(3).X = 12
userPoint(3).Y = 0
Dim curve() As Integer
ReDim curve(12)
EffectsUtilities.GetCurvePoints(curve, userPoint, CurvePointsType.Linear)
Dim CenterPoint As LeadPoint = New LeadPoint(leadImage.Width \ 2, leadImage.Height \ 2)
Dim command As FreeRadialBendCommand = New FreeRadialBendCommand(curve, 200, CenterPoint, New RasterColor(255, 0, 0), FreeRadialBendCommandFlags.Color Or FreeRadialBendCommandFlags.Rotate)
command.Run(leadImage)
codecs.Save(leadImage, Path.Combine(LEAD_VARS.ImagesDir, "Result.jpg"), RasterImageFormat.Jpeg, 24)
End Sub
Public NotInheritable Class LEAD_VARS
Public Const ImagesDir As String = "C:\Users\Public\Documents\LEADTOOLS Images"
End Class
using Leadtools;
using Leadtools.Codecs;
using Leadtools.ImageProcessing.SpecialEffects;
using Leadtools.ImageProcessing.Effects;
public void FreeRadialBendConstructorExample()
{
// Load an image
RasterCodecs codecs = new RasterCodecs();
codecs.ThrowExceptionsOnInvalidImages = true;
RasterImage image = codecs.Load(Path.Combine(LEAD_VARS.ImagesDir, "Master.jpg"));
// Prepare the command
LeadPoint[] userPoint = new LeadPoint[4];
LeadPoint centerPoint = new LeadPoint(image.Width / 2, image.Height / 2);
//Apply the filter
userPoint[0].X = 0;
userPoint[0].Y = 0;
userPoint[1].X = 3;
userPoint[1].Y = 10;
userPoint[2].X = 9;
userPoint[2].Y = -10;
userPoint[3].X = 12;
userPoint[3].Y = 0;
int[] curve = new int[13];
EffectsUtilities.GetCurvePoints(curve, userPoint, CurvePointsType.Linear);
for(int i = 0; i < curve.Length; i++)
curve[i] /= 50;
FreeRadialBendCommand command = new FreeRadialBendCommand(curve, 200, centerPoint, new RasterColor(255, 0, 0), FreeRadialBendCommandFlags.Color | FreeRadialBendCommandFlags.Rotate);
command.Run(image);
codecs.Save(image, Path.Combine(LEAD_VARS.ImagesDir, "Result.jpg"), RasterImageFormat.Jpeg, 24);
}
static class LEAD_VARS
{
public const string ImagesDir = @"C:\Users\Public\Documents\LEADTOOLS Images";
}